home *** CD-ROM | disk | FTP | other *** search
/ Ham Radio 2000 #2 / Ham Radio 2000 - Volume 2.iso / HAMV2 / MISC / HCAL-27 / NMBRSIZE.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1997-01-29  |  5.6 KB  |  187 lines
  1. 10  'NMBRSIZE - numbered drills & screws - 03 JUN 95  rev. 27 SEP 96
  2. 20  IF EX$=""THEN EX$="EXIT"
  3. 30  CLS:KEY OFF
  4. 40  COLOR 7,0,1
  5. 50  DIM D$(105,2)
  6. 60  DIM G(38)
  7. 70  UL$=STRING$(80,205)
  8. 80  '
  9. 90  '.....start
  10. 100  CLS:RESTORE
  11. 110  COLOR 15,2
  12. 120  PRINT " NUMBERED DRILLS, SCREWS & GAUGES (U.S. Standard)";
  13. 130  PRINT TAB(57);"by George Murphy VE3ERP ";
  14. 140  COLOR 1,0:PRINT STRING$(80,223);
  15. 150  COLOR 7,0
  16. 160  '
  17. 170  PRINT " Press number in < > to select:"
  18. 180  PRINT UL$;
  19. 190  PRINT "   < 1 >  Drill sizes"
  20. 200  PRINT "   < 2 >  Screw sizes"
  21. 210  PRINT "   < 3 >  Sheet metal gauges"
  22. 220  PRINT UL$;
  23. 230  PRINT "   < 0 >  EXIT"
  24. 240  Z$=INKEY$:IF Z$=""THEN 240
  25. 250  IF Z$="0"THEN CLS:RUN EX$
  26. 260  IF Z$="1"THEN GOSUB 320:GOTO 450
  27. 270  IF Z$="2"THEN 910
  28. 280  IF Z$="3"THEN GOSUB 320:GOTO 1090
  29. 290  GOTO 240
  30. 300  '
  31. 310  '.....numbered drills (79)
  32. 320  PRINT UL$;
  33. 330  LN=CSRLIN-2:VIEW PRINT LN TO 24:CLS:VIEW PRINT:LOCATE LN
  34. 340  PRINT " Press number in < > to choose standard units of measure:"
  35. 350  PRINT UL$;
  36. 360  PRINT "   < 4 >  Metric"
  37. 370  PRINT "   < 5 >  U.S.A./Imperial"
  38. 380  Z$=INKEY$
  39. 390  IF Z$="4"THEN UM=1:GOTO 420
  40. 400  IF Z$="5"THEN UM=2:GOTO 420
  41. 410  GOTO 380
  42. 420  VIEW PRINT 3 TO 24:CLS:VIEW PRINT:LOCATE 3
  43. 430  RETURN
  44. 440  '
  45. 450  '.....numbered drills (79)
  46. 460  DATA .0059, .0063, .0067, .0071, .0075, .0079, .0083, .0087, .0091, .0095
  47. 470  DATA .0100, .0105, .0110, .0115, .0120, .0125, .0130, .0135, .0145, .0400
  48. 480  DATA .0410, .0420, .0430, .0465, .0520, .0550, .0595, .0635, .0670, .0700
  49. 490  DATA .0730, .0760, .0785, .0810, .0820, .0860, .0890, .0935, .0960, .0980
  50. 500  DATA .0995, .1015, .1040, .1065, .1100, .1110, .1130, .1160, .1200, .1285
  51. 510  DATA .1360, .1405, .1440, .1470, .1495, .1520, .1540, .1570, .1590, .1610
  52. 520  DATA .1660, .1695, .1730, .1770, .1800, .1820, .1850, .1890, .1910, .1935
  53. 530  DATA .1960, .1990, .2010, .2040, .2055, .2090, .2130, .2210, .2280
  54. 540  '.....lettered drills (26)
  55. 550  DATA .234, .238, .242, .246, .250, .257, .261, .266, .272, .277, .281
  56. 560  DATA .290, .295, .302, .316, .323, .332, .339, .348, .358, .368, .377
  57. 570  DATA .386, .397, .404, .413
  58. 580  '
  59. 590  N=98
  60. 600  FOR Z=1 TO 105
  61. 610  IF Z<80 THEN N=N-1 :IF N=78 THEN N=60
  62. 620  IF Z=80 THEN N=64
  63. 630  IF Z>79 THEN N=N+1
  64. 640  IF Z<80 THEN N$=RIGHT$(STR$(N),LEN(STR$(N))-1)
  65. 650  IF Z>79 THEN N$=CHR$(N)
  66. 660  IF LEN(N$)<2 THEN N$=" "+N$
  67. 670  D$(Z,1)="#"+N$
  68. 680  READ Z$
  69. 690  M=VAL(Z$)*25.4:MM=INT(M*100+0.5)/100:M$=STR$(MM)
  70. 700  IF VAL(M$)>=1 AND LEN(M$)<5 THEN M$=M$+"0":GOTO 700
  71. 710  IF VAL(M$)<1 AND LEN(M$)<4 THEN M$=M$+"0":GOTO 700
  72. 720  IF LEN(M$)>6THEN M$=LEFT$(M$,6)
  73. 730  IF VAL(M$)<1 AND LEN(M$)<5 THEN M$=" "+M$:GOTO 700
  74. 740  IF LEN(M$)>5 THEN M$=LEFT$(M$,5)
  75. 750  IF UM=1 THEN D$(Z,2)=M$+" mm"
  76. 760  IF UM=2 THEN D$(Z,2)=" "+Z$+CHR$(34)
  77. 770  NEXT Z
  78. 780  '
  79. 790  '.....screen print
  80. 800  PRINT " NUMBERED DRILL DIAMETERS:"
  81. 810  FOR Z=1 TO 21
  82. 820  PRINT TAB( 2);D$(Z,1);" =";D$(Z,2);
  83. 830  PRINT TAB(17);"CALL";D$(Z+21,1);" =";D$(Z+21,2);
  84. 840  PRINT TAB(33);"CALL";D$(Z+42,1);" =";D$(Z+42,2);
  85. 850  PRINT TAB(49);"CALL";D$(Z+63,1);" =";D$(Z+63,2);
  86. 860  PRINT TAB(66);"CALL";D$(Z+84,1);" =";D$(Z+84,2);
  87. 870  NEXT Z
  88. 880  GOTO 1710
  89. 890  PRINT " # 0 = .060 in. = 1.52 mm     #50 = .0700 in. = 1.78 mm"
  90. 900  '
  91. 910  '.....screw sizes
  92. 920  VIEW PRINT 3 TO 24:CLS:VIEW PRINT:LOCATE 3
  93. 930  T=12
  94. 940  PRINT TAB(T);" MACHINE SCREW DIAMETER  SOUNDSOUND> CLEARANCE HOLE DRILL SIZE"
  95. 950  PRINT UL$;
  96. 960  PRINT TAB(T);"# 0 = .060 in. = 1.52 mm SOUNDSOUND> #50 = .0700 in. = 1.78 mm"
  97. 970  PRINT TAB(T);"# 1 = .073 in. = 1.85 mm SOUNDSOUND> #46 = .0810 in. = 2.06 mm"
  98. 980  PRINT TAB(T);"# 2 = .086 in. = 2.18 mm SOUNDSOUND> #41 = .0960 in. = 2.44 mm"
  99. 990  PRINT TAB(T);"# 3 = .099 in. = 2.51 mm SOUNDSOUND> #35 = .1100 in. = 2.79 mm"
  100. 1000  PRINT TAB(T);"# 4 = .112 in. = 2.84 mm SOUNDSOUND> #30 = .1285 in. = 3.26 mm"
  101. 1010  PRINT TAB(T);"# 5 = .125 in. = 3.18 mm SOUNDSOUND> #29 = .1360 in. = 3.45 mm"
  102. 1020  PRINT TAB(T);"# 6 = .138 in. = 3.51 mm SOUNDSOUND> #25 = .1495 in. = 3.80 mm"
  103. 1030  PRINT TAB(T);"# 8 = .164 in. = 4.17 mm SOUNDSOUND> #16 = .1770 in. = 4.50 mm"
  104. 1040  PRINT TAB(T);"#10 = .190 in. = 4.83 mm SOUNDSOUND> # 7 = .2010 in. = 5.11 mm"
  105. 1050  PRINT TAB(T);"#12 = .216 in. = 5.49 mm SOUNDSOUND> # 1 = .2280 in. = 5.79 mm"
  106. 1060  PRINT TAB(T);"#14 = .242 in. = 6.15 mm SOUNDSOUND> # F = .2570 in. = 6.53 mm"
  107. 1070  GOTO 1710
  108. 1080  '
  109. 1090  '.....sheet steel gauges
  110. 1100  VIEW PRINT 3 TO 24:CLS:VIEW PRINT:LOCATE 3
  111. 1110  TB=7
  112. 1120  PRINT TAB(TB);
  113. 1130  PRINT"``The thickness of steel sheets now is based upon a weight of 41.82"
  114. 1140  PRINT TAB(TB);
  115. 1150  PRINT "pounds per foot<UNK! {FD20}>per inch thick. This is known as Manufacturers'"
  116. 1160  PRINT TAB(TB);
  117. 1170  PRINT "Standard Gage for Sheet Steel.....thicknesses of aluminum, copper,"
  118. 1180  PRINT TAB(TB);
  119. 1190  PRINT "and copper-base alloys were formerly designated by the American or"
  120. 1200  PRINT TAB(TB);
  121. 1210  PRINT "Brown & Sharpe Wire Gage but now are specified in decimals or"
  122. 1220  PRINT TAB(TB);
  123. 1230  PRINT "fractions of an inch''.....(Machinery's Handbook, Revised 21st"
  124. 1240  PRINT TAB(TB);
  125. 1250  PRINT "Edition, page 465)."
  126. 1260  PRINT
  127. 1270  PRINT TAB(TB);
  128. 1280  PRINT "The following data is according to the Manufacturers' Standard Gage"
  129. 1290  PRINT TAB(TB);
  130. 1300  PRINT "for Sheet Steel........"
  131. 1310  GOSUB 1750
  132. 1320  VIEW PRINT 3 TO 24:CLS:VIEW PRINT:LOCATE 3
  133. 1330  '
  134. 1340  '.....pounds per square foot
  135. 1350  I=5/8      'increment
  136. 1360  W=10.625   'initial lbs/ft<UNK! {FD00}>0 TO 38
  137. 1380  IF Z=15 THEN I=5/16
  138. 1390  IF Z=17 THEN I=1/4
  139. 1400  IF Z=21 THEN I=1/8
  140. 1410  IF Z=27 THEN I=1/16
  141. 1420  IF Z=32 THEN I=1/32
  142. 1430  IF Z=37 THEN I=1/64
  143. 1440  W=W-I
  144. 1450  G(Z)=W
  145. 1460  NEXT Z
  146. 1470  '
  147. 1480  '.....screen display
  148. 1490  IF UM=1 THEN T=4.88243:T$="Ga.     Kg/m<UNK! {FD20}>   Thick"
  149. 1500  IF UM=2 THEN T=1:       T$="Ga.    Lb/Ft<UNK! {FD20}>   Thick"
  150. 1510  U$=STRING$(25,196)
  151. 1520  PRINT " SHEET STEEL GAUGES:"
  152. 1530  PRINT " THENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHEN"
  153. 1540  PRINT TAB(10);T$;TAB(47);T$
  154. 1550  PRINT TAB(10);U$;TAB(47);U$
  155. 1560  FOR Z=3 TO 20
  156. 1570  N$=RIGHT$(STR$(Z),LEN(STR$(Z))-1)
  157. 1580  IF VAL(N$)<10 THEN N$=" "+N$
  158. 1590  PRINT TAB(10);"#";N$;
  159. 1600  PRINT USING "#####.####";G(Z)*T;
  160. 1610  IF UM=1 THEN PRINT USING "#####.###";G(Z)/41.82*25.4;:PRINT " mm";
  161. 1620  IF UM=2 THEN PRINT USING "####.####";G(Z)/41.82;:PRINT " in.";
  162. 1630  N$=RIGHT$(STR$(Z+18),2)
  163. 1640  PRINT TAB(47);"#";N$;
  164. 1650  PRINT USING "#####.####";G(Z+18)*T;
  165. 1660  IF UM=1 THEN PRINT USING "#####.###";G(Z+18)/41.82*25.4;:PRINT " mm";
  166. 1670  IF UM=2 THEN PRINT USING "####.####";G(Z+18)/41.82;:PRINT " in.";
  167. 1680  NEXT Z
  168. 1690  GOTO 1710
  169. 1700  '
  170. 1710  '.....end
  171. 1720  GOSUB 1750
  172. 1730  GOTO 90   'start
  173. 1740  '
  174. 1750  'HARDCOPY
  175. 1760  GOSUB 1870:LOCATE 25,2:COLOR 14,6
  176. 1770  PRINT " Press 1 to print screen, 2 to print screen & ";
  177. 1780  PRINT "advance paper, or 3 to continue.";:COLOR 7,0
  178. 1790  Z$=INKEY$:IF Z$="3"THEN GOSUB 1870:RETURN
  179. 1800  IF Z$="1"OR Z$="2"THEN GOSUB 1870:GOTO 1820
  180. 1810  GOTO 1790
  181. 1820  FOR QX=1 TO 24:FOR QY=1 TO 80
  182. 1830  LPRINT CHR$(SCREEN(QX,QY));
  183. 1840  NEXT QY:NEXT QX
  184. 1850  IF Z$="2"THEN LPRINT CHR$(12)
  185. 1860  GOTO 1760
  186. 1870  LOCATE 25,1:PRINT STRING$(80,32);:RETURN
  187.